perm filename TEST.F4[XX,LCS] blob sn#236464 filedate 1976-09-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION X(20)
C00003 ENDMK
CāŠ—;
	DIMENSION X(20)
	TYPE 1
1	FORMAT(' TYPE NUMBERS TO BE MULTIPLIED -- '$)
	ACCEPT 2,X
2	FORMAT(20F)
	A=X(1)
	DO 3 K=2,20
	IF(X(K).EQ.0)GO TO 4
3	A=A*X(K)
4	IF(A.GT.10000.0)TYPE 5
5	FORMAT(' NUMBER TOO LARGE TO PRINT.'/)
	TYPE 2,A
	END